Var
  Form,Self:TForm;
  Application:TApplication;
  UserLabel,PassLabel,TargLabel,ChecLabel,ModeLabel,HealLabel,MouseLabel,RoLabel,ScreenLabel:TLabel;
  User,Pass,Heal:TEdit;
  Targ,Mode,Mouse,Chec,Ro,Screen:TComboBox;
  ButtonOK,ButtonCancel:TButton;
  UserName,PassWord,Name,Chat,Msg,Text,nMin,nHour,Bar:String;
  FMode,Counter,Often,Colour,HealHP,Tme,cPos,Wt,Wt1,Wt2,BagX,BagY,TryBag,MapCount,X,Y,Rot,Nwt,No,HP,Targets,Arrows,StartExp:Integer;
  Salmon,Trout,Lobster,Cake,Shark,Bag,Attack:Integer;
  Map,RightClick,Done,Skip,Found,Check,Rotat,Startcenter,NoStartExp,Cancel:Boolean;
  Hour,Min,Sec,MSec:Word;

Procedure OKClick(Sender:TObject);
Begin
  Cancel:=False;
  UserName:=User.Text;
  PassWord:=Pass.Text;
  Name:=Targ.Text;
  HealHP:=StrToInt(Heal.Text);
  If(Mouse.Text='Right')Then RightClick:=True else
  If(Mouse.Text='Left')Then RightClick:=False else Begin
    Cancel:=True;
    Writeln('Error with mouse button setup!');
    Writeln('Script Canceled');
  End;
  If(Mode.Text='Controlled')Then FMode:=1 else
  If(Mode.Text='Aggressive')Then FMode:=2 else
  If(Mode.Text='Accurate')Then FMode:=3 else
  If(Mode.Text='Defensive')Then FMode:=4 else Begin
    Cancel:=True;
    Writeln('Error with Fightmode setup!');
    Writeln('Script Canceled');
  End;
  If(Chec.Text='True')Then Check:=True else
  If(Chec.Text='False')Then Check:=False else Begin
    Cancel:=True;
    Writeln('Error with checking target name setup!');
    Writeln('Script Canceled');
  End;
  If(Ro.Text='True')Then Rotat:=True else
  If(Ro.Text='False')Then Rotat:=False else Begin
    Cancel:=True;
    Writeln('Error with rotate setup!');
    Writeln('Script Canceled');
  End;
  If(Screen.Text='Center')Then StartCenter:=True else
  If(Screen.Text='Random')Then StartCenter:=False else Begin
    Cancel:=True;
    Writeln('Error with Screen checking setup!');
    Writeln('Script Canceled');
  End;
  SaveSetting('Aut0Fighter','User',User.Text);
  SaveSetting('Aut0Fighter','Pass',Pass.Text);
  SaveSetting('Aut0Fighter','Heal',Heal.Text);
  SaveSetting('Aut0Fighter','Chec',Chec.Text);
  SaveSetting('Aut0Fighter','Mouse',Mouse.Text);
  SaveSetting('Aut0Fighter','Mode',Mode.Text);
  SaveSetting('Aut0Fighter','Targ',Targ.Text);
  SaveSetting('Aut0Fighter','Ro',Ro.Text);
  SaveSetting('Aut0Fighter','Screen',SCreen.Text);
  If(Name='Guard')Then Begin
  Colour:=10661355;
  Often:=10;
  Map:=False;
  End else If(Name='Yanille Watchman')Then Begin
  Colour:=10661355;
  Often:=10;
  End else If(Name='zombie')Then Begin
  Colour:=8085761;
  Often:=10;
  Map:=true;
  End else If(Name='Souless')Then Begin
  Colour:=8366255;
  Often:=10;
  Map:=True;
  End else If(Name='skeleton')Then Begin
  Colour:=16447223;
  Often:=10;
  Map:=False;
  End else If(Name='Giant bat')Then Begin
  Colour:=11908533;
  Often:=10;
  Map:=False;
  End else If(Name='cow')Then Begin
  Colour:=14342875;
  Often:=20;
  Map:=False;
  End else If(Name='Pirate')Then Begin
  Colour:=4095357;
  Often:=10;
  Map:=False;
  End else  If(Name='Warrior')Then Begin
  Colour:=13158655;
  Often:=10;
  Map:=False;
  End else If(Name='Other')Then Begin
  Name:='Other';
  Colour:=0;
  Often:=5;
  Map:=False;
  End else Begin
    Cancel:=True;
    Writeln('Error with Target Setup!');
    Writeln('Script Canceled');
  End;
End;

Procedure DoForm;
Begin
  Application:=GetApplication;
  Self:=GetSelf;
  Form:=TForm.Create(nil);
  Form.Cursor:=1;
  Form.Width:=220;
  Form.Height:=370;
  Form.Position:=poScreenCenter;
  Form.BorderStyle:=bsToolWindow;
  Form.Caption:='Aut0Fighter by Reines';
  Form.Font.Color:=13609128;
  Form.Color:=0;
  UserLabel:=TLabel.Create(Form);
  UserLabel.Top:=12;
  UserLabel.Left:=16;
  UserLabel.Caption:='Username:';
  UserLabel.Parent:=Form;
  PassLabel:=TLabel.Create(Form);
  PassLabel.Top:=42;
  PassLabel.Left:=16;
  PassLabel.Caption:='Password:';
  PassLabel.Parent:=Form;
  TargLabel:=TLabel.Create(Form);
  TargLabel.Top:=72;
  TargLabel.Left:=16;
  TargLabel.Caption:='Target:';
  TargLabel.Parent:=Form;
  ModeLabel:=TLabel.Create(Form);
  ModeLabel.Top:=102;
  ModeLabel.Left:=16;
  ModeLabel.Caption:='Mode:';
  ModeLabel.Parent:=Form;
  HealLabel:=TLabel.Create(Form);
  HealLabel.Top:=132;
  HealLabel.Left:=16;
  HealLabel.Caption:='Heal at this HP:';
  HealLabel.Parent:=Form;
  MouseLabel:=TLabel.Create(Form);
  MouseLabel.Top:=162;
  MouseLabel.Left:=16;
  MouseLabel.Caption:='Click:';
  MouseLabel.Parent:=Form;
  ChecLabel:=TLabel.Create(Form);
  ChecLabel.Top:=192;
  ChecLabel.Left:=16;
  ChecLabel.Caption:='Check Name:';
  ChecLabel.Parent:=Form;
  RoLabel:=TLabel.Create(Form);
  RoLabel.Top:=222;
  RoLabel.Left:=16;
  RoLabel.Caption:='Rotate:';
  RoLabel.Parent:=Form;
  ScreenLabel:=TLabel.Create(Form);
  ScreenLabel.Top:=252;
  ScreenLabel.Left:=16;
  ScreenLabel.Caption:='Screen:';
  ScreenLabel.Parent:=Form;
  User:=TEdit.Create(Form);
  User.Color:=13609128;
  User.Font.Color:=0;
  User.Cursor:=1;
  User.Top:=10;
  User.Left:=86;
  User.Width:=100;
  User.Parent:=Form;
  Pass:=TEdit.Create(Form);
  Pass.Color:=13609128;
  Pass.Font.Color:=0;
  Pass.Cursor:=1;
  Pass.Top:=40;
  Pass.Left:=86;
  Pass.Width:=100;
  Pass.PasswordChar:='*';
  Pass.Parent:=Form;
  Targ:=TComboBox.Create(Form);
  Targ.Color:=13609128;
  Targ.Font.Color:=0;
  Targ.Cursor:=1;
  Targ.Top:=70;
  Targ.Left:=86;
  Targ.Width:=100;
  Targ.Parent:=Form;
  Targ.DropDownCount:=11;
  Targ.Items.Add('zombie');
  Targ.Items.Add('Giant bat');
  Targ.Items.Add('Souless');
  Targ.Items.Add('cow');
  Targ.Items.Add('Blessed Spider');
  Targ.Items.Add('Guard');
  Targ.Items.Add('Yanille Watchman');
  Targ.Items.Add('skeleton');
  Targ.Items.Add('Pirate');
  Targ.Items.Add('Warrior');
  Targ.Items.Add('Other');
  Mode:=TComboBox.Create(Form);
  Mode.Color:=13609128;
  Mode.Font.Color:=0;
  Mode.Cursor:=1;
  Mode.Top:=100;
  Mode.Left:=86;
  Mode.Width:=100;
  Mode.Parent:=Form;
  Mode.DropDownCount:=4;
  Mode.Items.Add('Controlled');
  Mode.Items.Add('Aggressive');
  Mode.Items.Add('Accurate');
  Mode.Items.Add('Defensive');
  Heal:=TEdit.Create(Form);
  Heal.Color:=13609128;
  Heal.Font.Color:=0;
  Heal.Cursor:=1;
  Heal.Top:=130;
  Heal.Left:=106;
  Heal.Width:=80;
  Heal.Parent:=Form;
  Mouse:=TComboBox.Create(Form);
  Mouse.Color:=13609128;
  Mouse.Font.Color:=0;
  Mouse.Cursor:=1;
  Mouse.Top:=160;
  Mouse.Left:=86;
  Mouse.Width:=100;
  Mouse.Parent:=Form;
  Mouse.DropDownCount:=2;
  Mouse.Items.Add('Right');
  Mouse.Items.Add('Left');
  Chec:=TComboBox.Create(Form);
  Chec.Color:=13609128;
  Chec.Font.Color:=0;
  Chec.Cursor:=1;
  Chec.Top:=190;
  Chec.Left:=86;
  Chec.Width:=100;
  Chec.Parent:=Form;
  Chec.DropDownCount:=2;
  Chec.Items.Add('True');
  Chec.Items.Add('False');
  Ro:=TComboBox.Create(Form);
  Ro.Color:=13609128;
  Ro.Font.Color:=0;
  Ro.Cursor:=1;
  Ro.Top:=220;
  Ro.Left:=86;
  Ro.Width:=100;
  Ro.Parent:=Form;
  Ro.DropDownCount:=2;
  Ro.Items.Add('True');
  Ro.Items.Add('False');
  Screen:=TComboBox.Create(Form);
  Screen.Color:=13609128;
  Screen.Font.Color:=0;
  Screen.Cursor:=1;
  Screen.Top:=250;
  Screen.Left:=86;
  Screen.Width:=100;
  Screen.Parent:=Form;
  Screen.DropDownCount:=2;
  Screen.Items.Add('Center');
  Screen.Items.Add('Random');
  ButtonOK:=TButton.Create(Form);
  ButtonOK.Cursor:=1;
  ButtonOK.Top:=280;
  ButtonOK.Left:=70;
  ButtonOK.Width:=80;
  ButtonOK.Height:=24;
  ButtonOK.Caption:='OK';
  ButtonOK.Parent:=Form;
  ButtonOK.Default:=True;
  ButtonOK.ModalResult:=mrOk;
  ButtonOK.OnClick:=@OKClick;
  ButtonCancel:=TButton.Create(Form);
  ButtonCancel.Cursor:=1;
  ButtonCancel.Top:=310;
  ButtonCancel.Left:=60;
  ButtonCancel.Width:=100;
  ButtonCancel.Height:=24;
  ButtonCancel.Caption:='Cancel';
  ButtonCancel.Parent:=Form;
  ButtonCancel.Default:=False;
  ButtonCancel.ModalResult:=mrCancel;
  User.Text:=LoadSetting('Aut0Fighter','User');
  Pass.Text:=LoadSetting('Aut0Fighter','Pass');
  Heal.Text:=LoadSetting('Aut0Fighter','Heal');
  Chec.Text:=LoadSetting('Aut0Fighter','Chec');
  Mouse.Text:=LoadSetting('Aut0Fighter','Mouse');
  Mode.Text:=LoadSetting('Aut0Fighter','Mode');
  Targ.Text:=LoadSetting('Aut0Fighter','Targ');
  Ro.Text:=LoadSetting('Aut0Fighter','Ro');
  Screen.Text:=LoadSetting('Aut0Fighter','Screen');
  Form.ShowModal;
  Form.Free;
End;

Procedure SetStatus;
Begin
  Msg:='Aut0Fighter by Reines';
  Bar:='<--';
  For Counter:=1 To Length(Msg) Do Begin
    Status(Copy(Msg,1,Counter));
    Bar:=Bar+'-';
    Wait(50);
  End;
  Bar:=Bar+'-->';
  Writeln('<--'+Msg+'-->');
End;

Procedure Settings;
Begin
  Bag:=BitmapFromString(18,7,
       '9D6E3D9D6E3D9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
       '7B542E52452E52452E52452E52452E52452E52452E52452E360E06' +
       '9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
       '7B542E7B542E52452E52452E52452E52452E52452E52452E52452E' +
       '9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E7B542E7B542E7B542E' +
       '7B542E7B542E7B542E52452E7B542E52452E52452E52452E615D61' +
       '9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E' +
       '7B542E7B542E7B542E52452E7B542E52452E52452E8D8D8D868457' +
       '7B542E9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E' +
       '7B542E7B542E7B542E7B542E7B542E7B542E52452E988CB1988CB1' +
       '7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E' +
       '7B542E7B542E7B542E7B542E7B542E7B542E988CB1988CB1988CB1' +
       '7B542E7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3D7B542E' +
       '7B542E7B542E7B542E7B542E7B542E7B542E988CB1CFAB7BCFAB7B' +
       '');
  If(name='Giant bat')Then Attack:=BitmapFromString(89,9,
       '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000FFFF00000000000000000000000000000000' +
       'FFFF00FFFF00000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000FFFF00000000000000' +
       '000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
       '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FFFF00FFFF00000000000000000000000000000000FFFF00' +
       'FFFF00000000000000000000000000000000000000000000000000' +
       '000000000000000000000000FFFF00FFFF00000000000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
       '000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       '000000000000FFFF00FFFF00000000000000000000000000000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00FFFF00000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFF000000000000000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
       '000000FFFF00FFFF00000000000000000000000000000000000000' +
       'FFFF00FFFF00000000FFFF00000000000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF00000000000000000000000000000000FFFF00FFFF00FFFF00' +
       '000000FFFF00FFFF00000000FFFF00000000000000000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00' +
       'FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000000000000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFF00' +
       'FFFF00000000000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000000000000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
       '000000000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000FFFF00FFFF00000000000000000000' +
       '000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000000000000000000000000000FFFF00FFFF00' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
       '000000FFFF00FFFF00000000FFFF00FFFF00000000000000000000' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' +
       '') else If(Name='skeleton')Then Attack:=BitmapFromString(88,9,
       '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000FFFF00FFFF00000000000000000000000000000000' +
       '000000000000000000000000000000000000000000FFFF00FFFF00' +
       '000000000000000000000000000000000000000000000000000000' +
       'FFFF00000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       'FFFF00FFFF00000000000000000000000000000000000000000000' +
       '000000000000000000000000000000FFFF00FFFF00000000000000' +
       '000000000000000000000000000000000000FFFF00FFFF00000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000FFFFFF' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00000000000000' +
       'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000FFFF00FFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000000000000000000000000000FFFF00FFFF00FFFF00000000' +
       '000000000000000000FFFF00FFFF00FFFF00FFFF00000000000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
       '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
       '000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF00000000' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00FFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       '000000000000000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000000000000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00FFFFFFFFFFFF000000000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000000000000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '') else If(Name='Pirate')Then Attack:=BitmapFromString(73,9,
       '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FFFF00000000000000000000000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000000000000000FFFF00FFFF00000000000000' +
       '000000FFFF00FFFF00000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FFFF00FFFF00000000000000000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000FFFF00FFFF00000000' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
       'FFFF00FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00' +
       '000000000000FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' +
       'FFFF00FFFF00000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
       '000000000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000000000FFFF00000000000000000000' +
       'FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000000000000000000000000000FFFF00' +
       'FFFF00000000000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000000000000000000000FFFF00' +
       'FFFF00FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000000000000000000000FFFF00' +
       'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
       '000000FFFF00FFFF00000000000000000000000000000000000000' +
       'FFFF00FFFF00000000FFFF00FFFF00000000000000000000FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000000000000000000000FFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       '000000000000FFFF00FFFF00000000000000000000000000000000' +
       '000000FFFF00FFFF00000000FFFF00FFFF00000000000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000000000000000FFFF00FFFF00000000000000000000000000' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
       '')else Attack:=BitmapFromString(37,10,
       '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000');
  Salmon:=BitmapFromString(12,4,
       '9B74749B74749B7474654B4B9B74749B74749B74749B74749B7474' +
       '9B74749B74749B74748A68688A68688A6868654B4B8A68688A6868' +
       '8A68688A68688A68688A68688A68688A68688A68688A68688A6868' +
       '654B4B8A68688A68688A68688A68688A68688A68688A68688A6868' +
       '7B5C5C7B5C5C654B4B7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C' +
       '7B5C5C7B5C5C7B5C5C');
  Trout:=BitmapFromString(12,4,
       'CE5A5ACE5A5A863B3BCE5A5ACE5A5ACE5A5ACE5A5ACE5A5ACE5A5A' +
       'CE5A5ACE5A5ACE5A5AB85050B85050863B3BB85050B85050B85050' +
       'B85050B85050B85050B85050B85050B85050B85050B85050863B3B' +
       'B85050B85050B85050B85050B85050B85050B85050B85050B85050' +
       'A34747863B3BA34747A34747A34747A34747A34747A34747A34747' +
       'A34747A34747A34747');
  Shark:=BitmapFromString(16,5,
       '804600804600804600804600804600804600804600804600804600' +
       '804600804600804600804600804600804600723E00673800804600' +
       '804600804600804600804600804600804600804600804600804600' +
       '804600804600804600804600723E00673800804600804600723E00' +
       '552E00804600804600804600804600804600804600804600804600' +
       '804600804600723E00804600804600804600552E00552E00804600' +
       '804600804600804600804600804600804600804600804600804600' +
       '723E00804600804600804600804600804600804600804600804600' +
       '804600804600804600804600804600723E00723E00723E00');
  Lobster:=BitmapFromString(12,4,
       '7F4500AD5E00AD5E008E4D009E56009E56008E4D009E56009E5600' +
       '9E56009E56008E4D00AD5E007F45008E4D009E56009E56009E5600' +
       '703D008E4D009E56009E56007F450045372C703D007F45008E4D00' +
       '8E4D008E4D009E56008E4D00703D008E4D008E4D0045372C180C07' +
       '703D007F45008E4D008E4D00703D008E4D009E56008E4D00703D00' +
       '8E4D007F45000D0700');
  Cake:=BitmapFromString(11,8,
       '866950A38062A38062A38062A38062A38062A380628669505A4736' +
       '5A4736545539866950866950866950A38062A38062A38062A38062' +
       '7058435A47365A4736A38062866950866950866950866950A38062' +
       'A38062A38062A38062A38062A38062A38062866950866950866950' +
       '866950866950866950866950A38062A38062A38062A38062A38062' +
       '866950866950866950866950866950866950866950866950866950' +
       '866950A38062A38062A38062866950866950866950866950866950' +
       '866950866950866950866950A38062A38062A38062866950866950' +
       '866950866950866950866950866950866950866950866950A38062' +
       'A38062A38062A38062866950866950866950866950');
End;

Procedure LogInIfNeeded;
Begin
  If(GetColor(338,125)=5524540)Then Begin
    ClickMouse(357+random(5),281+random(5),True);
    Wait(200+random(50));
    ClickMouse(255+random(5),287+random(5),True);
    Wait(200+random(50));
    ClickMouse(166+random(5),263+random(5),True);
    Wait(500+random(50));
    SendKeysSilent(UserName);
    Wait(500+random(50));
    ClickMouse(260+random(5),303+random(5),True);
    Wait(500+random(50));
    SendKeysSilent(PassWord);
    Wait(500+random(50));
    ClickMouse(392+random(5),248+random(5),True);
    Tme:=0;
    Repeat
    Wait(1000);
    Tme:=Tme+1000;
    Until(Tme>10000)Or(GetColor(56,117)=16777215);
  End;
  If(GetColor(56,117)=16777215)Then Begin
    ClickMouse(220,230,True);
    Wait(1000+random(250));
  End;
  If(GetColor(95,133)=65535)And(GetColor(325,159)=16777215)Then Begin
    ClickMouse(265,200,True)
    Wait(1000+random(250));
  End;
End;

Procedure GetStartExp;
Begin
  NoStartExp:=False;
  Repeat
  MoveMouse(425,20);
  Wait(200);
  If(FMode=2)Then Begin
    ClickMouse(350,107,True);
    Wait(500);
    StartExp:=StrToInt(GetTextAt(369,279));
  End else
  IF(FMode=3)Then Begin
    ClickMouse(350,80,True);
    Wait(500);
    StartExp:=StrToInt(GetTextAt(369,279));
  End else
  If(FMode=4)Then Begin
    ClickMouse(350,94,True);
    Wait(500);
    StartExp:=StrToInt(GetTextAt(369,279));
  End else NoStartExp:=True;
  Until(StartExp<>-1)or(NoStartExp);
  MoveMouse(25,25);
End;

Procedure ModCheck;
Begin
  Chat:=GetChatMsg;
  cPos:=Pos(':',Chat);
  If(Copy(Chat,1,4)='Mod ')Or(Copy(Chat,1,cPos-1)='Paul')Or(Copy(Chat,1,cPos-1)='Andrew')Then Begin
    Done:=True;
    Writeln('Fuck, a Mod! Logging out');
    SaveScreenshot(AppPath+'Mod.bmp');
  End;
End;

Procedure SleepIfNeeded;
Begin
  If(Copy(GetChatMsg,1,17)='You are too tired')Then Begin
    MoveMouse(492,14);
    Wait(200);
    TryBag:=0;
    Repeat
    TryBag:=TryBag+1;
    Wait(100);
    ModCheck;
    Until(FindBitmap(Bag,BagX,BagY))or(TryBag>20)or(Done);
    Repeat
    Wait(100);
    ModCheck;
    Until(GetFightMode=0);
    Wt1:=0;
    Wait(200);
    MoveMouse(498,16);
    Wait(1000);
    ClickMouse(BagX,BagY,True);
    Repeat
    Wait(1000);
    Wt1:=Wt1+1000;
    Until(Wt1>=60000)Or(Getcolor(166,44)<>65535)Or(Getcolor(266,133)<>16777215);
    If(Wt1>=60000)And(Getcolor(166,44)=65535)Then Begin
      Repeat
      ClickMouse(198,302,True);
      Wt2:=0;
      Repeat
      Wait(1000);
      Wt2:=Wt2+1000;
      Until(Wt2>=40000)Or(Getcolor(166,44)<>65535);
      Until(Getcolor(166,44)<>65535);
    End;
    Wait(1000);
    MoveMouse(25,25);
  End;
End;

Procedure MiniMap;
Begin
  Wait(100);
  MoveMouse(460,16);
  Wait(500);
  Repeat
  MapCount:=MapCount+1;
  Wait(10);
  If(FindColor(X,Y,65535,380,70,480,160))Then Begin
    Wait(100);
    ClickMouse(X,Y,True);
    Wait(100);
    Rot:=0;
  End;
  Until(Rot=0)Or(MapCount>20);
  MoveMouse(25,25);
End;

Procedure Rotate;
Begin
  Rot:=0;
  Repeat
  For Arrows:=1 To 10 Do SendArrowSilent(1);
  Rot:=Rot+1;
  ModCheck;
  If(Rot>=20+Random(5))and(Map)Then MiniMap;
  Until(FindColorSpiral(X,Y,Colour,-1,-1,-1,-1))Or(GetColor(338,125)=5524540)or(Done);
End;

Procedure Eat;
Begin
  MoveMouse(492,14);
  Wait(200);
  If(FindBitmap(Trout,X,Y))or(FindBitmap(Salmon,X,Y))or(FindBitmap(Cake,X,Y))or(FindBitmap(Shark,X,Y))or(FindBitmap(Lobster,X,Y))Then Begin
    Repeat
    Wait(100);
    ModCheck;
    Until(GetFightMode=0);
    ClickMouse(X,Y,True);
    Wait(2000);
  End;
  MoveMouse(25,25);
End;

Procedure Stats;
Begin
  Targets:=0;
  Repeat
  MoveMouse(427,16);
  Wait(100);
  HP:=StrToInt(Copy(GetTextAt(343,112),1,2));
  Wait(50);
  ModCheck;
  Until(HP<>-1)Or(Done)or(GetColor(338,125)=5524540);
  If(HP<=HealHP)Then Eat else MoveMouse(25,25);
End;

Procedure Screenshot;
Begin
  If(Copy(GetChatMsg,1,17)='You just advanced')Then Begin
    MoveMouse(430,20);
    Wait(500);
    If(Copy(GetChatMsg,21,26)='Attack')Then Text:='Attack'+GetTextAt(375,73)else
    If(Copy(GetChatMsg,21,28)='Strength')Then Text:='Strength'+GetTextAt(387,99)else
    If(Copy(GetChatMsg,21,27)='Defence')Then Text:='Defence'+GetTextAt(385,86)else
    If(Copy(GetChatMsg,21,24)='Hits')Then Text:='Hits'+copy(GetTextAt(343,112),4,5)else Text:='Fuckup';
    SaveScreenshot(AppPath+Text+'.bmp');
    Writeln(Bar);
    Writeln('Screenshot saved');
    Writeln(Bar);
  End;
End;

Procedure Fight;
Begin
  If(GetFightMode<>0)Then Begin
    No:=0;
    Repeat
    If(GetFightMode<>FMode)And(GetFightMode<>0)Then ClickMouse(100,25+20*FMode,True);
    ModCheck;
    Wait(50);
    Screenshot;
    Until(GetFightMode=0)or(Done);
  End else No:=No+1;
  Screenshot;
  SleepIfNeeded;
  Found:=False;
  If(StartCenter)Then Begin
    If(FindColorSpiral(X,Y,Colour,160,140,320,250))and(not Done)Then Found:=True else
    If(FindColorSpiral(X,Y,Colour,80,70,400,330))and(not Done)Then Found:=True else
    If(FindColorSpiral(X,Y,Colour,-1,-1,-1,-1))and(not Done)Then Found:=True;
  End else Begin
    X:=Random(300);
    Y:=Random(100);
    If(FindColorSpiral(X,Y,Colour,X,Y,X+220,Y+220))Then Found:=True;
  End;
  If(Found)Then Begin
    MoveMouse(X,Y);
    Skip:=False;
    Nwt:=0;
    Repeat
    Wait(50);
    Nwt:=Nwt+50;
    Until(IsTextAt(6,2,Name))or(not Check)or(Nwt>=300);
    If(IsTextAt(6,2,Name))or(not Check)Then Begin
      If(RightClick)Then
      Begin
        ClickMouse(X,Y,False);
        Wait(200);
        IF(FindBitmap(Attack,X,Y))Then ClickMouse(X,Y,True) else Begin
          MoveMouse(25,25);
          Skip:=True;
        End;
      End else ClickMouse(X,Y,True);
      ModCheck;
      If(not Skip)Then Begin
        Targets:=Targets+1;
        Wt:=0;
        Repeat
        If(GetFightMode<>FMode)And(GetFightMode<>0)Then ClickMouse(100,25+20*FMode,True);
        ModCheck;
        Wait(50);
        Wt:=Wt+50;
        Until(Wt>=3000)or(GetFightMode=FMode)or(Done);
      End;
    End;
  End;
End;

Begin
  Cancel:=True;
  Done:=False;
  DoForm;
  If(not Cancel)Then Begin
    Settings;
    SetStatus;
    LogInIfNeeded;
    GetStartExp;
    If(not NoStartExp)Then Begin
      DecodeTime(Now,Hour,Min,Sec,MSec);
      nMin:=IntToStr(Min);
      nHour:=IntToStr(Hour);
      If(Min<10)Then nMin:='0'+IntToStr(Min);
      If(Hour<10)Then nHour:='0'+IntToStr(Hour);
      StartExp:=StartExp/1000;
      If(FMode=2)Then Writeln(nHour+':'+nMin+' - '+IntToStr(StartExp)+'k Strength Exp.')else
      If(FMode=3)Then Writeln(nHour+':'+nMin+' - '+IntToStr(StartExp)+'k Attack Exp.')else
      If(FMode=4)Then Writeln(nHour+':'+nMin+' - '+IntToStr(StartExp)+'k Defence Exp.')
    End;
    Repeat
    SleepIfNeeded;
    If(No>=5)And(Rotat)Then Rotate;
    Fight;
    Screenshot;
    LogInIfNeeded;
    If(Targets>=Often)Then Stats;
    ModCheck;
    Until(Done);
    Repeat
    MoveMouse(325,20);
    Wait(1000);
    ClickMouse(350,280,True);
    Wait(2000);
    Until(GetColor(338,125)=5524540);
  End;
  If(Cancel)Then Writeln('Script Canceled');
End.program New;
begin
end.